home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Medal Software 2
/
Gold Medal Software Volume 2 (Gold Medal) (1994).iso
/
os2
/
pmgb32.arj
/
TEST.PMG
< prev
Wrap
Text File
|
1993-05-30
|
1KB
|
33 lines
/* Sample (test) startup macro */
/* For example: start pmglobe2 macro test */
/* Get the information we need, and set a new title */
'extract version versionb'
'set title PMGlobe -' version '('versionb'-bit)'
/* Set up some sample timezones; summertime assumed same as local */
bst=offset( 0) /* argument is base GMT offset, in hours */
est=offset(-5)
pst=offset(-8) /* e.g., San Francisco */
jst=offset(+9)
/* Mark some chosen cities, with a couple of clocks */
'set font default'
"mark 51o30 0 clock" bst "label London"
"mark 40.8 -74.0 clock" est "label New York"
"mark 37.8 -122.4 x center label San Francisco"
"mark 35.7 139.8 clock" jst "label Tokyo"
"mark -33.7 151.3 label Sydney"
exit
/* OFFSET(seconds) -- convert winter GMT offset to current */
/* Answer is returned in seconds */
offset: procedure
arg hours . /* (Unchecked) */
'extract dayoffset' /* get local summertime offset */
if dayoffset='UNKNOWN' then dayoffset=0 /* just in case */
return hours*3600+dayoffset /* convert to seconds and adjust */